﻿Namespace dal
    Public Class DataAccessException
        Inherits ApplicationException

        Public Sub New(ByVal Message As String)
            MyBase.New(Message)
        End Sub

        Public Sub New(ByVal Message As String, ByVal inEx As Exception)
            MyBase.New(Message, inEx)
        End Sub
    End Class
End Namespace